{smcl}
{com}{sf}{ul off}{txt}{.-}
      name:  {res}<unnamed>
       {txt}log:  {res}/Users/gwf25/Desktop/Table 2.smcl
  {txt}log type:  {res}smcl
 {txt}opened on:  {res} 7 Dec 2015, 10:06:53

{com}. do "/Users/gwf25/Dropbox/research/religion/final code/Table 2.do"
{txt}
{com}. clear all
{txt}
{com}. set mem 30m
{txt}(30720k)

{com}. 
. use "/Users/gwf25/Dropbox/research/religion/final code/religion_all.dta"
{txt}
{com}. 
. //  Begin definition of variables
. 
. ***Drop subjects who thought the experiment was about religion
. gen id = _n
{txt}
{com}. drop if id == 98 | id == 176 | id == 194 | id == 383
{txt}(4 observations deleted)

{com}. 
. ***Drop subjects who incorrectly completed the priming task. This includes subjects who leave more than half the responses blank. The following subjects
. ***all left at least questions #2-#7 blank in the sentence unscrambling task. 
. drop if id==7 | id==719 | id==740 | id==762 | id==940
{txt}(5 observations deleted)

{com}. 
. ***An error led to some subjects seeing both the control and religion salient sentence unscrambling tasks. Here, we drop those subjects.
. drop if prime_diff == 1
{txt}(2 observations deleted)

{com}. 
. ***"skipped" is a dummy variable for whether subjects skip the question that asks their religion. If they skip this question, we drop them from the sample 
. ***and if not, we assign a dummy variable to indicate the treatment group (religion salient or control) that subject belongs to.
. gen skipped=0
{txt}
{com}. replace skipped=1 if  s10q15==""
{txt}(21 real changes made)

{com}. gen treatR=.
{txt}(1033 missing values generated)

{com}. replace treatR=religion if skipped==0
{txt}(1012 real changes made)

{com}. drop if skipped==1
{txt}(21 observations deleted)

{com}. 
. ***Define religion
. gen relig=.
{txt}(1012 missing values generated)

{com}. 
. ***Note: 1 = protestant or other christian, 2 = catholic, 3 = jewish, 4 = agnostic/atheist
. replace relig=1 if (s10q15=="Christian - Other (please specify below)" | s10q15=="Christian - Protestant (please specify denomination below)")
{txt}(264 real changes made)

{com}. replace relig=2 if s10q15=="Christian - Catholic"
{txt}(199 real changes made)

{com}. replace relig=3 if s10q15=="Jewish (Orthodox/Reformed/etc.)" | s10q15=="Jewish (Orthodox/Reform/etc.)"
{txt}(95 real changes made)

{com}. replace relig=4 if (s10q15=="Agnostic" | s10q15=="Atheist")
{txt}(269 real changes made)

{com}. 
. ***Drop Mormon/Othodox Christians from the sample
. drop if s10q15sp == "Greek Orthodox"
{txt}(2 observations deleted)

{com}. drop if s10q15sp == "Russian Othrodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "greek orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Orthodox Christian"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthdox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "christian orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthodox Christian"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Russian orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Church of Jesus Christ of Latter Day Saints"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthodox"
{txt}(0 observations deleted)

{com}. 
. // End of variables
. 
. ***Panel A
. rename s6 contribute
{txt}
{com}. rename s6exp expect
{txt}
{com}. 
. reg contribute treatR if relig == 1, r

{txt}Linear regression                                      Number of obs ={res}     171
                                                       {txt}F(  1,   169) ={res}    6.48
                                                       {txt}Prob > F      = {res} 0.0118
                                                       {txt}R-squared     = {res} 0.0371
                                                       {txt}Root MSE      = {res} .40176

{txt}{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 1}  contribute{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      t{col 46}   P>|t|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2} .1568555{col 26}{space 2} .0616119{col 37}{space 1}    2.55{col 46}{space 3}0.012{col 54}{space 4} .0352275{col 67}{space 3} .2784835
{txt}{space 7}_cons {c |}{col 14}{res}{space 2} .5278571{col 26}{space 2} .0469561{col 37}{space 1}   11.24{col 46}{space 3}0.000{col 54}{space 4} .4351612{col 67}{space 3} .6205531
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{res}{txt}
{com}. reg contribute treatR if relig == 2, r

{txt}Linear regression                                      Number of obs ={res}     138
                                                       {txt}F(  1,   136) ={res}    7.22
                                                       {txt}Prob > F      = {res} 0.0081
                                                       {txt}R-squared     = {res} 0.0497
                                                       {txt}Root MSE      = {res} .40234

{txt}{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 1}  contribute{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      t{col 46}   P>|t|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2}-.1834222{col 26}{space 2} .0682511{col 37}{space 1}   -2.69{col 46}{space 3}0.008{col 54}{space 4}-.3183929{col 67}{space 3}-.0484516
{txt}{space 7}_cons {c |}{col 14}{res}{space 2} .7022222{col 26}{space 2} .0483033{col 37}{space 1}   14.54{col 46}{space 3}0.000{col 54}{space 4} .6066995{col 67}{space 3} .7977449
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{res}{txt}
{com}. 
. ***Panel B
. reg expect treatR if relig == 1, r

{txt}Linear regression                                      Number of obs ={res}     171
                                                       {txt}F(  1,   169) ={res}    0.32
                                                       {txt}Prob > F      = {res} 0.5745
                                                       {txt}R-squared     = {res} 0.0019
                                                       {txt}Root MSE      = {res} .30676

{txt}{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 1}      expect{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      t{col 46}   P>|t|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2} .0264039{col 26}{space 2} .0469365{col 37}{space 1}    0.56{col 46}{space 3}0.574{col 54}{space 4}-.0662535{col 67}{space 3} .1190614
{txt}{space 7}_cons {c |}{col 14}{res}{space 2}  .597619{col 26}{space 2} .0337103{col 37}{space 1}   17.73{col 46}{space 3}0.000{col 54}{space 4} .5310716{col 67}{space 3} .6641665
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{res}{txt}
{com}. reg expect treatR if relig == 2, r

{txt}Linear regression                                      Number of obs ={res}     138
                                                       {txt}F(  1,   136) ={res}    5.04
                                                       {txt}Prob > F      = {res} 0.0264
                                                       {txt}R-squared     = {res} 0.0356
                                                       {txt}Root MSE      = {res} .30912

{txt}{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 1}      expect{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      t{col 46}   P>|t|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2}-.1183683{col 26}{space 2} .0527254{col 37}{space 1}   -2.24{col 46}{space 3}0.026{col 54}{space 4}-.2226359{col 67}{space 3}-.0141006
{txt}{space 7}_cons {c |}{col 14}{res}{space 2} .7339683{col 26}{space 2} .0384705{col 37}{space 1}   19.08{col 46}{space 3}0.000{col 54}{space 4} .6578905{col 67}{space 3}  .810046
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{res}{txt}
{com}. 
. ***Panel C
. reg contribute treatR expect if relig == 1, r

{txt}Linear regression                                      Number of obs ={res}     171
                                                       {txt}F(  2,   168) ={res}  162.88
                                                       {txt}Prob > F      = {res} 0.0000
                                                       {txt}R-squared     = {res} 0.4893
                                                       {txt}Root MSE      = {res} .29345

{txt}{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 1}  contribute{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      t{col 46}   P>|t|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2} .1331571{col 26}{space 2} .0455769{col 37}{space 1}    2.92{col 46}{space 3}0.004{col 54}{space 4} .0431799{col 67}{space 3} .2231342
{txt}{space 6}expect {c |}{col 14}{res}{space 2} .8975331{col 26}{space 2} .0585567{col 37}{space 1}   15.33{col 46}{space 3}0.000{col 54}{space 4} .7819313{col 67}{space 3} 1.013135
{txt}{space 7}_cons {c |}{col 14}{res}{space 2}-.0085258{col 26}{space 2} .0476608{col 37}{space 1}   -0.18{col 46}{space 3}0.858{col 54}{space 4}-.1026171{col 67}{space 3} .0855655
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{res}{txt}
{com}. reg contribute treatR expect if relig == 2, r

{txt}Linear regression                                      Number of obs ={res}     138
                                                       {txt}F(  2,   135) ={res}  141.72
                                                       {txt}Prob > F      = {res} 0.0000
                                                       {txt}R-squared     = {res} 0.5451
                                                       {txt}Root MSE      = {res}  .2794

{txt}{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 1}  contribute{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      t{col 46}   P>|t|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2} -.072186{col 26}{space 2}   .05012{col 37}{space 1}   -1.44{col 46}{space 3}0.152{col 54}{space 4} -.171308{col 67}{space 3}  .026936
{txt}{space 6}expect {c |}{col 14}{res}{space 2} .9397471{col 26}{space 2} .0631152{col 37}{space 1}   14.89{col 46}{space 3}0.000{col 54}{space 4} .8149247{col 67}{space 3}  1.06457
{txt}{space 7}_cons {c |}{col 14}{res}{space 2} .0124777{col 26}{space 2} .0607625{col 37}{space 1}    0.21{col 46}{space 3}0.838{col 54}{space 4}-.1076919{col 67}{space 3} .1326472
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{res}{txt}
{com}. 
. clear all
{txt}
{com}. set mem 30m
{txt}(30720k)

{com}. set more off
{txt}
{com}. 
. use "/Users/gwf25/Dropbox/research/religion/final code/religion_all.dta"
{txt}
{com}. 
. //  Begin definition of variables
. 
. ***Drop subjects who thought the experiment was about religion
. gen id = _n
{txt}
{com}. drop if id == 98 | id == 176 | id == 194 | id == 383
{txt}(4 observations deleted)

{com}. 
. ***Drop subjects who incorrectly completed the priming task. This includes subjects who leave more than half the responses blank. The following subjects
. ***all left at least questions #2-#7 blank in the sentence unscrambling task. 
. drop if id==7 | id==719 | id==740 | id==762 | id==940
{txt}(5 observations deleted)

{com}. 
. ***An error led to some subjects seeing both the control and religion salient sentence unscrambling tasks. Here, we drop those subjects.
. drop if prime_diff == 1
{txt}(2 observations deleted)

{com}. 
. ***"skipped" is a dummy variable for whether subjects skip the question that asks their religion. If they skip this question, we drop them from the sample 
. ***and if not, we assign a dummy variable to indicate the treatment group (religion salient or control) that subject belongs to.
. gen skipped=0
{txt}
{com}. replace skipped=1 if  s10q15==""
{txt}(21 real changes made)

{com}. gen treatR=.
{txt}(1033 missing values generated)

{com}. replace treatR=religion if skipped==0
{txt}(1012 real changes made)

{com}. drop if skipped==1
{txt}(21 observations deleted)

{com}. 
. ***Define religion
. gen relig=.
{txt}(1012 missing values generated)

{com}. 
. ***Note: 1 = protestant or other christian, 2 = catholic, 3 = jewish, 4 = agnostic/atheist
. replace relig=1 if (s10q15=="Christian - Other (please specify below)" | s10q15=="Christian - Protestant (please specify denomination below)")
{txt}(264 real changes made)

{com}. replace relig=2 if s10q15=="Christian - Catholic"
{txt}(199 real changes made)

{com}. replace relig=3 if s10q15=="Jewish (Orthodox/Reformed/etc.)" | s10q15=="Jewish (Orthodox/Reform/etc.)"
{txt}(95 real changes made)

{com}. replace relig=4 if (s10q15=="Agnostic" | s10q15=="Atheist")
{txt}(269 real changes made)

{com}. 
. ***Drop Mormon/Othodox Christians from the sample
. drop if s10q15sp == "Greek Orthodox"
{txt}(2 observations deleted)

{com}. drop if s10q15sp == "Russian Othrodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "greek orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Orthodox Christian"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthdox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "christian orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthodox Christian"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Russian orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Church of Jesus Christ of Latter Day Saints"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthodox"
{txt}(0 observations deleted)

{com}. 
. // End of variables
. 
. ***Drop those subjects who don't take part in the risk preference section
. drop if s3q1 == .
{txt}(596 observations deleted)

{com}. 
. ***Generate upper limit for risk with small amounts
. gen risk1=.
{txt}(406 missing values generated)

{com}. replace risk1=(1.6*0.5-1) if s3q1==1
{txt}(37 real changes made)

{com}. gen risk2=.
{txt}(406 missing values generated)

{com}. replace risk2=(2*0.5-1) if s3q2==1
{txt}(111 real changes made)

{com}. gen risk3=.
{txt}(406 missing values generated)

{com}. replace risk3=(2.4*0.5-1) if s3q3==1
{txt}(244 real changes made)

{com}. gen risk4=.
{txt}(406 missing values generated)

{com}. replace risk4=(2.8*0.5-1) if s3q4==1
{txt}(342 real changes made)

{com}. gen risk5=.
{txt}(406 missing values generated)

{com}. replace risk5=(3.2*0.5-1) if s3q5==1
{txt}(377 real changes made)

{com}. gen risk6=.
{txt}(406 missing values generated)

{com}. replace risk6=(3.6*0.5-1) if s3q6==1
{txt}(390 real changes made)

{com}. 
. ***Choose the upper limit for the first time a subject chooses the risky asset with small amounts.
. gen reservationrisk1= min(risk1,risk2,risk3,risk4,risk5,risk6)
{txt}(11 missing values generated)

{com}. 
. ***Generate upper limit for risk with large amounts
. gen risk7=.
{txt}(406 missing values generated)

{com}. replace risk7=(160*0.5-100)/100 if s4q1==1
{txt}(19 real changes made)

{com}. gen risk8=.
{txt}(406 missing values generated)

{com}. replace risk8=(200*0.5-100)/100 if s4q2==1
{txt}(51 real changes made)

{com}. gen risk9=.
{txt}(406 missing values generated)

{com}. replace risk9=(240*0.5-100)/100 if s4q3==1
{txt}(137 real changes made)

{com}. gen risk10=.
{txt}(406 missing values generated)

{com}. replace risk10=(280*0.5-100)/100 if s4q4==1
{txt}(224 real changes made)

{com}. gen risk11=.
{txt}(406 missing values generated)

{com}. replace risk11=(320*0.5-100)/100 if s4q5==1
{txt}(283 real changes made)

{com}. gen risk12=.
{txt}(406 missing values generated)

{com}. replace risk12=(360*0.5-100)/100 if s4q6==1
{txt}(298 real changes made)

{com}. 
. ***Choose the upper limit for the first time a subject chooses the risky asset with large amounts.
. gen reservationrisk2= min(risk7,risk8,risk9,risk10,risk11,risk12)
{txt}(102 missing values generated)

{com}. 
. ***Create two entries per subject. One is for small amounts and the other is for large amounts. riskchoice indicates whether it is a small or large stake gamble. 
. reshape long reservationrisk, i(id) j(riskchoice)
{txt}(note: j = 1 2)

Data{col 36}wide{col 43}->{col 48}long
{hline 77}
Number of obs.                 {res}     406   {txt}->{res}     812
{txt}Number of variables            {res}     218   {txt}->{res}     218
{txt}j variable (2 values)                     ->   {res}riskchoice
{txt}xij variables:
      {res}reservationrisk1 reservationrisk2   {txt}->   {res}reservationrisk
{txt}{hline 77}

{com}. 
. ***largestake is a dummy where a 1 indicates risk choices with large amounts and a 0 indicates risk choices with small amounts.
. gen largestake=0
{txt}
{com}. replace largestake= 1 if riskchoice==2 
{txt}(406 real changes made)

{com}. 
. ***Recall reservationrisk indicates the upper limit. Rename this variable risku and create another variable, riskl, which will indicate the lower limit.
. rename reservationrisk risk
{txt}
{com}. gen riskl=.
{txt}(812 missing values generated)

{com}. gen risku=risk
{txt}(113 missing values generated)

{com}. 
. ***Fill in values for the lower limit.
. ***Note that even if someone always chose the safe option, they are assigned a missing value for the upper limit and the highest possible value we ask about for the lower limit. So they are properly taken care of.
. replace riskl=. if risk < -.2
{txt}(0 real changes made)

{com}. replace riskl=(1.6*0.5-1) if risk == 0
{txt}(108 real changes made)

{com}. replace riskl=(2*0.5-1) if risk > .1 & risk < .3
{txt}(225 real changes made)

{com}. replace riskl=(2.4*0.5-1) if risk > .3 & risk < .5
{txt}(187 real changes made)

{com}. replace riskl=(2.8*0.5-1) if risk > .5 & risk < .7
{txt}(97 real changes made)

{com}. replace riskl=(3.2*0.5-1) if risk > .7 & risk < .9
{txt}(26 real changes made)

{com}. replace riskl=(3.6*0.5-1) if risk == . & s4q1 ~= .
{txt}(113 real changes made)

{com}. 
. ***Panel D
. intreg riskl risku treatR largestake if relig==1, cluster(id)

{txt}Fitting constant-only model:
{res}
{txt}Iteration 0:{space 3}log pseudolikelihood = {res:-449.39366}  
Iteration 1:{space 3}log pseudolikelihood = {res:-436.56629}  
Iteration 2:{space 3}log pseudolikelihood = {res: -436.2638}  
Iteration 3:{space 3}log pseudolikelihood = {res:-436.26357}  
Iteration 4:{space 3}log pseudolikelihood = {res:-436.26357}  
{res}
{txt}Fitting full model:
{res}
{txt}Iteration 0:{space 3}log pseudolikelihood = {res:-436.46797}  
Iteration 1:{space 3}log pseudolikelihood = {res:-423.55286}  
Iteration 2:{space 3}log pseudolikelihood = {res:-423.29123}  
Iteration 3:{space 3}log pseudolikelihood = {res:-423.29105}  
Iteration 4:{space 3}log pseudolikelihood = {res:-423.29105}  
{res}
{txt}Interval regression{col 51}Number of obs{col 67}= {res}       232
{txt}{col 51}Wald chi2({res}2{txt}){col 67}= {res}     36.01
{txt}Log pseudolikelihood = {res}-423.29105{txt}{col 51}Prob > chi2{col 67}= {res}    0.0000

{txt}{ralign 78:(Std. Err. adjusted for {res:116} clusters in id)}
{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      z{col 46}   P>|z|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2}-.0315487{col 26}{space 2} .0629238{col 37}{space 1}   -0.50{col 46}{space 3}0.616{col 54}{space 4}-.1548772{col 67}{space 3} .0917797
{txt}{space 2}largestake {c |}{col 14}{res}{space 2} .2736465{col 26}{space 2} .0456734{col 37}{space 1}    5.99{col 46}{space 3}0.000{col 54}{space 4} .1841282{col 67}{space 3} .3631648
{txt}{space 7}_cons {c |}{col 14}{res}{space 2} .2344143{col 26}{space 2} .0487682{col 37}{space 1}    4.81{col 46}{space 3}0.000{col 54}{space 4} .1388304{col 67}{space 3} .3299983
{txt}{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 1}    /lnsigma{col 14}{c |}{res}{space 2}-.9420646{col 26}{space 2} .0752598{col 37}{space 1}  -12.52{col 46}{space 3}0.000{col 54}{space 4}-1.089571{col 67}{space 3} -.794558
{txt}{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 1}       sigma{col 14}{c |}{res}{space 2} .3898222{col 26}{space 2}  .029338{col 54}{space 4} .3363607{col 67}{space 3} .4517809
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}

  Observation summary:{col 24}{res}       16{col 34}{txt} left-censored observations
{col 24}{res}        0{col 34}{txt}    uncensored observations
{col 24}{res}       45{col 34}{txt}right-censored observations
{col 24}{res}      171{col 34}{txt}      interval observations

{com}. 
. intreg riskl risku treatR largestake if relig==2, cluster(id)

{txt}Fitting constant-only model:
{res}
{txt}Iteration 0:{space 3}log pseudolikelihood = {res:-297.30458}  
Iteration 1:{space 3}log pseudolikelihood = {res:-291.10031}  
Iteration 2:{space 3}log pseudolikelihood = {res:-290.99546}  
Iteration 3:{space 3}log pseudolikelihood = {res:-290.99542}  
Iteration 4:{space 3}log pseudolikelihood = {res:-290.99542}  
{res}
{txt}Fitting full model:
{res}
{txt}Iteration 0:{space 3}log pseudolikelihood = {res:-283.41252}  
Iteration 1:{space 3}log pseudolikelihood = {res:-277.21604}  
Iteration 2:{space 3}log pseudolikelihood = {res:-277.13442}  
Iteration 3:{space 3}log pseudolikelihood = {res:-277.13439}  
{res}
{txt}Interval regression{col 51}Number of obs{col 67}= {res}       154
{txt}{col 51}Wald chi2({res}2{txt}){col 67}= {res}     36.49
{txt}Log pseudolikelihood = {res}-277.13439{txt}{col 51}Prob > chi2{col 67}= {res}    0.0000

{txt}{ralign 78:(Std. Err. adjusted for {res:77} clusters in id)}
{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      z{col 46}   P>|z|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2}-.1137943{col 26}{space 2} .0682346{col 37}{space 1}   -1.67{col 46}{space 3}0.095{col 54}{space 4}-.2475316{col 67}{space 3}  .019943
{txt}{space 2}largestake {c |}{col 14}{res}{space 2} .3059685{col 26}{space 2} .0517568{col 37}{space 1}    5.91{col 46}{space 3}0.000{col 54}{space 4}  .204527{col 67}{space 3} .4074101
{txt}{space 7}_cons {c |}{col 14}{res}{space 2} .2090108{col 26}{space 2} .0490153{col 37}{space 1}    4.26{col 46}{space 3}0.000{col 54}{space 4} .1129425{col 67}{space 3} .3050791
{txt}{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 1}    /lnsigma{col 14}{c |}{res}{space 2}-1.025518{col 26}{space 2} .0784753{col 37}{space 1}  -13.07{col 46}{space 3}0.000{col 54}{space 4}-1.179326{col 67}{space 3}-.8717087
{txt}{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 1}       sigma{col 14}{c |}{res}{space 2} .3586108{col 26}{space 2} .0281421{col 54}{space 4} .3074858{col 67}{space 3} .4182363
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}

  Observation summary:{col 24}{res}       10{col 34}{txt} left-censored observations
{col 24}{res}        0{col 34}{txt}    uncensored observations
{col 24}{res}       25{col 34}{txt}right-censored observations
{col 24}{res}      119{col 34}{txt}      interval observations

{com}. 
. clear all
{txt}
{com}. set mem 30m
{txt}(30720k)

{com}. set more off
{txt}
{com}. 
. use "/Users/gwf25/Dropbox/research/religion/final code/religion_all.dta"
{txt}
{com}. 
. //  Begin definition of variables
. 
. ***Drop subjects who thought the experiment was about religion
. gen id = _n
{txt}
{com}. drop if id == 98 | id == 176 | id == 194 | id == 383
{txt}(4 observations deleted)

{com}. 
. ***Drop subjects who incorrectly completed the priming task. This includes subjects who leave more than half the responses blank. The following subjects
. ***all left at least questions #2-#7 blank in the sentence unscrambling task. 
. drop if id==7 | id==719 | id==740 | id==762 | id==940
{txt}(5 observations deleted)

{com}. 
. ***An error led to some subjects seeing both the control and religion salient sentence unscrambling tasks. Here, we drop those subjects.
. drop if prime_diff == 1
{txt}(2 observations deleted)

{com}. 
. ***"skipped" is a dummy variable for whether subjects skip the question that asks their religion. If they skip this question, we drop them from the sample 
. ***and if not, we assign a dummy variable to indicate the treatment group (religion salient or control) that subject belongs to.
. gen skipped=0
{txt}
{com}. replace skipped=1 if  s10q15==""
{txt}(21 real changes made)

{com}. gen treatR=.
{txt}(1033 missing values generated)

{com}. replace treatR=religion if skipped==0
{txt}(1012 real changes made)

{com}. drop if skipped==1
{txt}(21 observations deleted)

{com}. 
. ***Define religion
. gen relig=.
{txt}(1012 missing values generated)

{com}. 
. ***Note: 1 = protestant or other christian, 2 = catholic, 3 = jewish, 4 = agnostic/atheist
. replace relig=1 if (s10q15=="Christian - Other (please specify below)" | s10q15=="Christian - Protestant (please specify denomination below)")
{txt}(264 real changes made)

{com}. replace relig=2 if s10q15=="Christian - Catholic"
{txt}(199 real changes made)

{com}. replace relig=3 if s10q15=="Jewish (Orthodox/Reformed/etc.)" | s10q15=="Jewish (Orthodox/Reform/etc.)"
{txt}(95 real changes made)

{com}. replace relig=4 if (s10q15=="Agnostic" | s10q15=="Atheist")
{txt}(269 real changes made)

{com}. 
. ***Drop Mormon/Othodox Christians from the sample
. drop if s10q15sp == "Greek Orthodox"
{txt}(2 observations deleted)

{com}. drop if s10q15sp == "Russian Othrodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "greek orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Orthodox Christian"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthdox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "christian orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthodox Christian"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Russian orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Church of Jesus Christ of Latter Day Saints"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthodox"
{txt}(0 observations deleted)

{com}. 
. // End of variables
. 
. 
. ***Drop those subjects who don't take part in the time preference section
. drop if s2q1 == .
{txt}(596 observations deleted)

{com}. 
. ***Create the upper limit of the discount rate.
. //gen r1=.
. //replace r1= ln(ln(10.10/10)) if s2q1==1
. //gen r2=.
. //replace r2= ln(ln(10.25/10)) if s2q2==1
. //gen r3=.
. //replace r3= ln(ln(10.50/10)) if s2q3==1
. //gen r4=.
. //replace r4= ln(ln(10.75/10)) if s2q4==1
. //gen r5=.
. //replace r5= ln(ln(11/10)) if s2q5==1
. //gen r6=.
. //replace r6= ln(ln(11.25/10)) if s2q6==1
. //gen r7=.
. //replace r7= ln(ln(11.50/10)) if s2q7==1
. //gen r8=.
. //replace r8= ln(ln(12/10)) if s2q8==1
. //gen r9=.
. //replace r9= ln(ln(12.50/10)) if s2q9==1
. //gen r10=.
. //replace r10= ln(ln(13/10)) if s2q10==1
. //gen r11=.
. //replace r11= ln(ln(14/10)) if s2q11==1
. //gen r12=.
. //replace r12= ln(ln(15/10)) if s2q12==1
. 
. ***Fill in the upper limit, rounding to 7 decimal places for now vs. 1 week choices.
. gen r1=.
{txt}(406 missing values generated)

{com}. replace r1= -4.6101495 if s2q1==1
{txt}(134 real changes made)

{com}. gen r2=.
{txt}(406 missing values generated)

{com}. replace r2= -3.7012512 if s2q2==1
{txt}(163 real changes made)

{com}. gen r3=.
{txt}(406 missing values generated)

{com}. replace r3= -3.0202265 if s2q3==1
{txt}(185 real changes made)

{com}. gen r4=.
{txt}(406 missing values generated)

{com}. replace r4= -2.6266454 if s2q4==1
{txt}(195 real changes made)

{com}. gen r5=.
{txt}(406 missing values generated)

{com}. replace r5= -2.3506187 if s2q5==1
{txt}(264 real changes made)

{com}. gen r6=.
{txt}(406 missing values generated)

{com}. replace r6= -2.1389110  if s2q6==1
{txt}(270 real changes made)

{com}. gen r7=.
{txt}(406 missing values generated)

{com}. replace r7= -1.9678147 if s2q7==1
{txt}(280 real changes made)

{com}. gen r8=.
{txt}(406 missing values generated)

{com}. replace r8= -1.7019834 if s2q8==1
{txt}(316 real changes made)

{com}. gen r9=.
{txt}(406 missing values generated)

{com}. replace r9= -1.4999400 if s2q9==1
{txt}(320 real changes made)

{com}. gen r10=.
{txt}(406 missing values generated)

{com}. replace r10= -1.3380214 if s2q10==1
{txt}(353 real changes made)

{com}. gen r11=.
{txt}(406 missing values generated)

{com}. replace r11= -1.0892396 if s2q11==1
{txt}(369 real changes made)

{com}. gen r12=.
{txt}(406 missing values generated)

{com}. replace r12= -0.9027205 if s2q12==1
{txt}(390 real changes made)

{com}. 
. ***Choose the upper limit for the first time the subject makes the patient choice in the now vs. 1 week section.
. gen reservationr1= min(r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12)
{txt}(16 missing values generated)

{com}. 
. ***Note that the number of missing observations for s2q1 through s2q24 (for those subjects who completed participated in the time section) is always zero.
. 
. ***Fill in the upper limit, rounding to 7 decimal places for 1 week vs. 2 week choices.
. gen r13=.
{txt}(406 missing values generated)

{com}. replace r13=-4.6101495 if s2q13==1
{txt}(163 real changes made)

{com}. gen r14=.
{txt}(406 missing values generated)

{com}. replace r14= -3.7012512 if s2q14==1
{txt}(181 real changes made)

{com}. gen r15=.
{txt}(406 missing values generated)

{com}. replace r15= -3.0202265 if s2q15==1
{txt}(199 real changes made)

{com}. gen r16=.
{txt}(406 missing values generated)

{com}. replace r16= -2.6266454 if s2q16==1
{txt}(205 real changes made)

{com}. gen r17=.
{txt}(406 missing values generated)

{com}. replace r17= -2.3506187 if s2q17==1
{txt}(276 real changes made)

{com}. gen r18=.
{txt}(406 missing values generated)

{com}. replace r18= -2.1389110 if s2q18==1
{txt}(281 real changes made)

{com}. gen r19=.
{txt}(406 missing values generated)

{com}. replace r19= -1.9678147 if s2q19==1
{txt}(294 real changes made)

{com}. gen r20=.
{txt}(406 missing values generated)

{com}. replace r20= -1.7019834 if s2q20==1
{txt}(318 real changes made)

{com}. gen r21=.
{txt}(406 missing values generated)

{com}. replace r21= -1.4999400 if s2q21==1
{txt}(323 real changes made)

{com}. gen r22=.
{txt}(406 missing values generated)

{com}. replace r22= -1.3380214 if s2q22==1
{txt}(344 real changes made)

{com}. gen r23=.
{txt}(406 missing values generated)

{com}. replace r23= -1.0892396 if s2q23==1
{txt}(361 real changes made)

{com}. gen r24=.
{txt}(406 missing values generated)

{com}. replace r24= -0.9027205 if s2q24==1
{txt}(381 real changes made)

{com}. 
. ***Choose the upper limit for the first time the subject makes the patient choice in the 1 week vs. 2 week section.
. gen reservationr2=min(r13,r14,r15,r16,r17,r18,r19,r20,r21,r22,r23, r24)
{txt}(23 missing values generated)

{com}. 
. ***Create two observations per subject where reservationr is the upper limit of the discount rate and timechoice indicates whether the choice was between now vs. 1 week or 1 week vs. 2 weeks.
. reshape long reservationr, i(id) j(timechoice)
{txt}(note: j = 1 2)

Data{col 36}wide{col 43}->{col 48}long
{hline 77}
Number of obs.                 {res}     406   {txt}->{res}     812
{txt}Number of variables            {res}     230   {txt}->{res}     230
{txt}j variable (2 values)                     ->   {res}timechoice
{txt}xij variables:
            {res}reservationr1 reservationr2   {txt}->   {res}reservationr
{txt}{hline 77}

{com}. 
. ***Create the dummy variable week1 that takes the value 1 when the choice was between 1 week vs. 2 weeks and 0 when the choice was between now vs. 1 week.
. gen week1=0
{txt}
{com}. replace week1 = 1 if timechoice==2 
{txt}(406 real changes made)

{com}. 
. ***Recall that reservationr represents the upper limit of the discount rate. Rename this rate and then create two variables, ratel and rateu, that represent the lower and upper values for the discount rate, respectively.
. rename reservationr rate
{txt}
{com}. gen ratel=.
{txt}(812 missing values generated)

{com}. gen rateu= rate
{txt}(39 missing values generated)

{com}. 
. ***Fill in the values for ratel, the lower value for the discount rate.
. ***Note that log(x) returns the natural log of ln(x) 
. //replace ratel=. if rate==log(log(10.10/10))
. //replace ratel= log(log(10.10/10)) if rate==log(log(10.25/10))
. //replace ratel= log(log(10.25/10)) if rate==log(log(10.5/10))
. //replace ratel= log(log(10.5/10)) if rate==log(log(10.75/10))
. //replace ratel= log(log(10.75/10)) if rate==log(log(11/10))
. //replace ratel= log(log(11/10)) if rate==log(log(11.25/10))
. //replace ratel= log(log(11.25/10)) if rate==log(log(11.50/10))
. //replace ratel= log(log(11.50/10)) if rate==log(log(12/10))
. //replace ratel= log(log(12/10)) if rate==log(log(12.5/10))
. //replace ratel= log(log(12.5/10)) if rate==log(log(13/10))
. //replace ratel= log(log(13/10)) if rate==log(log(14/10))
. //replace ratel= log(log(14/10)) if rate==log(log(15/10))
. //replace ratel= log(log(15/10)) if rate==.
. 
. ***Fill in values for ratel, rounding to 7 decimal places
. ***Note that the last line takes care of those who always make the impatient choice because their discount rate lies between the highest we ask about and "."
. replace ratel=. if rateu < -4.61
{txt}(0 real changes made)

{com}. replace ratel= -4.6101494 if rateu < -3.7 & rateu > -4.61
{txt}(47 real changes made)

{com}. replace ratel= -3.7012513 if rateu < -3.02 & rateu > -3.7
{txt}(41 real changes made)

{com}. replace ratel= -3.0202265 if rateu < -2.62 & rateu > -3.02
{txt}(17 real changes made)

{com}. replace ratel= -2.6266454 if rateu < -2.35 & rateu > -2.62
{txt}(139 real changes made)

{com}. replace ratel= -2.3506187 if rateu < -2.13 & rateu > -2.35
{txt}(13 real changes made)

{com}. replace ratel= -2.1389110  if rateu < -1.96 & rateu > -2.13
{txt}(24 real changes made)

{com}. replace ratel= -1.9678147  if rateu < -1.70 & rateu > -1.96
{txt}(57 real changes made)

{com}. replace ratel= -1.7019834  if rateu < -1.49 & rateu > -1.70
{txt}(16 real changes made)

{com}. replace ratel= -1.4999400  if rateu < -1.33 & rateu > -1.49
{txt}(50 real changes made)

{com}. replace ratel= -1.3380214  if rateu < -1.08 & rateu > -1.33
{txt}(34 real changes made)

{com}. replace ratel= -1.0892396  if rateu < -0.90 & rateu > -1.08
{txt}(38 real changes made)

{com}. replace ratel= -0.9027205 if rateu==.
{txt}(39 real changes made)

{com}. 
. ***Panel E
. intreg ratel rateu treatR week1 if relig==1, cluster(id)

{txt}Fitting constant-only model:
{res}
{txt}Iteration 0:{space 3}log pseudolikelihood = {res:-615.39262}  
Iteration 1:{space 3}log pseudolikelihood = {res:-595.52247}  
Iteration 2:{space 3}log pseudolikelihood = {res:-594.76367}  
Iteration 3:{space 3}log pseudolikelihood = {res: -594.7619}  
Iteration 4:{space 3}log pseudolikelihood = {res: -594.7619}  
{res}
{txt}Fitting full model:
{res}
{txt}Iteration 0:{space 3}log pseudolikelihood = {res:-613.99041}  
Iteration 1:{space 3}log pseudolikelihood = {res: -594.6068}  
Iteration 2:{space 3}log pseudolikelihood = {res:-593.88611}  
Iteration 3:{space 3}log pseudolikelihood = {res:-593.88452}  
Iteration 4:{space 3}log pseudolikelihood = {res:-593.88452}  
{res}
{txt}Interval regression{col 51}Number of obs{col 67}= {res}       232
{txt}{col 51}Wald chi2({res}2{txt}){col 67}= {res}      0.96
{txt}Log pseudolikelihood = {res}-593.88452{txt}{col 51}Prob > chi2{col 67}= {res}    0.6173

{txt}{ralign 78:(Std. Err. adjusted for {res:116} clusters in id)}
{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      z{col 46}   P>|z|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2} .3500305{col 26}{space 2} .3568766{col 37}{space 1}    0.98{col 46}{space 3}0.327{col 54}{space 4}-.3494349{col 67}{space 3} 1.049496
{txt}{space 7}week1 {c |}{col 14}{res}{space 2} .0044334{col 26}{space 2} .1092788{col 37}{space 1}    0.04{col 46}{space 3}0.968{col 54}{space 4} -.209749{col 67}{space 3} .2186158
{txt}{space 7}_cons {c |}{col 14}{res}{space 2}-3.027213{col 26}{space 2} .2602208{col 37}{space 1}  -11.63{col 46}{space 3}0.000{col 54}{space 4}-3.537236{col 67}{space 3}-2.517189
{txt}{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 1}    /lnsigma{col 14}{c |}{res}{space 2} .6586202{col 26}{space 2}  .084372{col 37}{space 1}    7.81{col 46}{space 3}0.000{col 54}{space 4} .4932542{col 67}{space 3} .8239862
{txt}{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 1}       sigma{col 14}{c |}{res}{space 2} 1.932125{col 26}{space 2} .1630171{col 54}{space 4} 1.637637{col 67}{space 3} 2.279569
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}

  Observation summary:{col 24}{res}       56{col 34}{txt} left-censored observations
{col 24}{res}        0{col 34}{txt}    uncensored observations
{col 24}{res}       22{col 34}{txt}right-censored observations
{col 24}{res}      154{col 34}{txt}      interval observations

{com}. 
. intreg ratel rateu treatR week1 if relig==2, cluster(id)

{txt}Fitting constant-only model:
{res}
{txt}Iteration 0:{space 3}log pseudolikelihood = {res:-397.73875}  
Iteration 1:{space 3}log pseudolikelihood = {res:-377.37258}  
Iteration 2:{space 3}log pseudolikelihood = {res:-376.20413}  
Iteration 3:{space 3}log pseudolikelihood = {res: -376.2031}  
Iteration 4:{space 3}log pseudolikelihood = {res: -376.2031}  
{res}
{txt}Fitting full model:
{res}
{txt}Iteration 0:{space 3}log pseudolikelihood = {res:-396.40597}  
Iteration 1:{space 3}log pseudolikelihood = {res:-376.55593}  
Iteration 2:{space 3}log pseudolikelihood = {res:-375.46163}  
Iteration 3:{space 3}log pseudolikelihood = {res:-375.46045}  
Iteration 4:{space 3}log pseudolikelihood = {res:-375.46045}  
{res}
{txt}Interval regression{col 51}Number of obs{col 67}= {res}       154
{txt}{col 51}Wald chi2({res}2{txt}){col 67}= {res}      1.51
{txt}Log pseudolikelihood = {res}-375.46045{txt}{col 51}Prob > chi2{col 67}= {res}    0.4699

{txt}{ralign 78:(Std. Err. adjusted for {res:77} clusters in id)}
{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      z{col 46}   P>|z|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2}  .426943{col 26}{space 2} .4966687{col 37}{space 1}    0.86{col 46}{space 3}0.390{col 54}{space 4}-.5465098{col 67}{space 3} 1.400396
{txt}{space 7}week1 {c |}{col 14}{res}{space 2}-.1655479{col 26}{space 2} .1747904{col 37}{space 1}   -0.95{col 46}{space 3}0.344{col 54}{space 4}-.5081308{col 67}{space 3}  .177035
{txt}{space 7}_cons {c |}{col 14}{res}{space 2}-3.526361{col 26}{space 2}  .361555{col 37}{space 1}   -9.75{col 46}{space 3}0.000{col 54}{space 4}-4.234995{col 67}{space 3}-2.817726
{txt}{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 1}    /lnsigma{col 14}{c |}{res}{space 2} .7812356{col 26}{space 2} .0977769{col 37}{space 1}    7.99{col 46}{space 3}0.000{col 54}{space 4} .5895964{col 67}{space 3} .9728749
{txt}{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 1}       sigma{col 14}{c |}{res}{space 2} 2.184169{col 26}{space 2} .2135614{col 54}{space 4}  1.80326{col 67}{space 3} 2.645539
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}

  Observation summary:{col 24}{res}       54{col 34}{txt} left-censored observations
{col 24}{res}        0{col 34}{txt}    uncensored observations
{col 24}{res}        9{col 34}{txt}right-censored observations
{col 24}{res}       91{col 34}{txt}      interval observations

{com}. 
. clear all
{txt}
{com}. set mem 30m
{txt}(30720k)

{com}. set more off
{txt}
{com}. 
. use "/Users/gwf25/Dropbox/research/religion/final code/religion_all.dta"
{txt}
{com}. 
. //  Begin definition of variables
. 
. ***Drop subjects who thought the experiment was about religion
. gen id = _n
{txt}
{com}. drop if id == 98 | id == 176 | id == 194 | id == 383
{txt}(4 observations deleted)

{com}. 
. ***Drop subjects who incorrectly completed the priming task. This includes subjects who leave more than half the responses blank. The following subjects
. ***all left at least questions #2-#7 blank in the sentence unscrambling task. 
. drop if id==7 | id==719 | id==740 | id==762 | id==940
{txt}(5 observations deleted)

{com}. 
. ***An error led to some subjects seeing both the control and religion salient sentence unscrambling tasks. Here, we drop those subjects.
. drop if prime_diff == 1
{txt}(2 observations deleted)

{com}. 
. ***"skipped" is a dummy variable for whether subjects skip the question that asks their religion. If they skip this question, we drop them from the sample 
. ***and if not, we assign a dummy variable to indicate the treatment group (religion salient or control) that subject belongs to.
. gen skipped=0
{txt}
{com}. replace skipped=1 if  s10q15==""
{txt}(21 real changes made)

{com}. gen treatR=.
{txt}(1033 missing values generated)

{com}. replace treatR=religion if skipped==0
{txt}(1012 real changes made)

{com}. drop if skipped==1
{txt}(21 observations deleted)

{com}. 
. ***Define religion
. gen relig=.
{txt}(1012 missing values generated)

{com}. 
. ***Note: 1 = protestant or other christian, 2 = catholic, 3 = jewish, 4 = agnostic/atheist
. replace relig=1 if (s10q15=="Christian - Other (please specify below)" | s10q15=="Christian - Protestant (please specify denomination below)")
{txt}(264 real changes made)

{com}. replace relig=2 if s10q15=="Christian - Catholic"
{txt}(199 real changes made)

{com}. replace relig=3 if s10q15=="Jewish (Orthodox/Reformed/etc.)" | s10q15=="Jewish (Orthodox/Reform/etc.)"
{txt}(95 real changes made)

{com}. replace relig=4 if (s10q15=="Agnostic" | s10q15=="Atheist")
{txt}(269 real changes made)

{com}. 
. ***Drop Mormon/Othodox Christians from the sample
. drop if s10q15sp == "Greek Orthodox"
{txt}(2 observations deleted)

{com}. drop if s10q15sp == "Russian Othrodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "greek orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Orthodox Christian"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthdox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "christian orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthodox Christian"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Russian orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Church of Jesus Christ of Latter Day Saints"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthodox"
{txt}(0 observations deleted)

{com}. 
. // End of variables
. 
. rename s5 giveaway
{txt}
{com}. 
. *** Panel F
. reg giveaway treatR if relig == 1, r

{txt}Linear regression                                      Number of obs ={res}     177
                                                       {txt}F(  1,   175) ={res}    0.30
                                                       {txt}Prob > F      = {res} 0.5874
                                                       {txt}R-squared     = {res} 0.0017
                                                       {txt}Root MSE      = {res} .28748

{txt}{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 1}    giveaway{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      t{col 46}   P>|t|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2}-.0234717{col 26}{space 2} .0431807{col 37}{space 1}   -0.54{col 46}{space 3}0.587{col 54}{space 4}-.1086937{col 67}{space 3} .0617504
{txt}{space 7}_cons {c |}{col 14}{res}{space 2} .2144944{col 26}{space 2}  .032627{col 37}{space 1}    6.57{col 46}{space 3}0.000{col 54}{space 4} .1501013{col 67}{space 3} .2788875
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{res}{txt}
{com}. reg giveaway treatR if relig == 2, r

{txt}Linear regression                                      Number of obs ={res}     139
                                                       {txt}F(  1,   137) ={res}    0.73
                                                       {txt}Prob > F      = {res} 0.3955
                                                       {txt}R-squared     = {res} 0.0055
                                                       {txt}Root MSE      = {res} .25245

{txt}{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 1}    giveaway{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      t{col 46}   P>|t|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2}-.0373646{col 26}{space 2} .0438409{col 37}{space 1}   -0.85{col 46}{space 3}0.396{col 54}{space 4}-.1240569{col 67}{space 3} .0493277
{txt}{space 7}_cons {c |}{col 14}{res}{space 2} .1720313{col 26}{space 2} .0357376{col 37}{space 1}    4.81{col 46}{space 3}0.000{col 54}{space 4} .1013626{col 67}{space 3} .2426999
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{res}{txt}
{com}. 
. clear all
{txt}
{com}. set mem 30m
{txt}(30720k)

{com}. set more off
{txt}
{com}. 
. use "/Users/gwf25/Dropbox/research/religion/final code/religion_all.dta"
{txt}
{com}. 
. //  Begin definition of variables
. 
. ***Drop subjects who thought the experiment was about religion
. gen id = _n
{txt}
{com}. drop if id == 98 | id == 176 | id == 194 | id == 383
{txt}(4 observations deleted)

{com}. 
. ***Drop subjects who incorrectly completed the priming task. This includes subjects who leave more than half the responses blank. The following subjects
. ***all left at least questions #2-#7 blank in the sentence unscrambling task. 
. drop if id==7 | id==719 | id==740 | id==762 | id==940
{txt}(5 observations deleted)

{com}. 
. ***An error led to some subjects seeing both the control and religion salient sentence unscrambling tasks. Here, we drop those subjects.
. drop if prime_diff == 1
{txt}(2 observations deleted)

{com}. 
. ***"skipped" is a dummy variable for whether subjects skip the question that asks their religion. If they skip this question, we drop them from the sample 
. ***and if not, we assign a dummy variable to indicate the treatment group (religion salient or control) that subject belongs to.
. gen skipped=0
{txt}
{com}. replace skipped=1 if  s10q15==""
{txt}(21 real changes made)

{com}. gen treatR=.
{txt}(1033 missing values generated)

{com}. replace treatR=religion if skipped==0
{txt}(1012 real changes made)

{com}. drop if skipped==1
{txt}(21 observations deleted)

{com}. 
. ***Define religion
. gen relig=.
{txt}(1012 missing values generated)

{com}. 
. ***Note: 1 = protestant or other christian, 2 = catholic, 3 = jewish, 4 = agnostic/atheist
. replace relig=1 if (s10q15=="Christian - Other (please specify below)" | s10q15=="Christian - Protestant (please specify denomination below)")
{txt}(264 real changes made)

{com}. replace relig=2 if s10q15=="Christian - Catholic"
{txt}(199 real changes made)

{com}. replace relig=3 if s10q15=="Jewish (Orthodox/Reformed/etc.)" | s10q15=="Jewish (Orthodox/Reform/etc.)"
{txt}(95 real changes made)

{com}. replace relig=4 if (s10q15=="Agnostic" | s10q15=="Atheist")
{txt}(269 real changes made)

{com}. 
. ***Drop Mormon/Othodox Christians from the sample
. drop if s10q15sp == "Greek Orthodox"
{txt}(2 observations deleted)

{com}. drop if s10q15sp == "Russian Othrodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "greek orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Orthodox Christian"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthdox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "christian orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthodox Christian"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Russian orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Church of Jesus Christ of Latter Day Saints"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthodox"
{txt}(0 observations deleted)

{com}. 
. // End of variables
. 
. *** Panel G
. reg anagramsattempted treatR if relig == 1, r

{txt}Linear regression                                      Number of obs ={res}      77
                                                       {txt}F(  1,    75) ={res}    0.08
                                                       {txt}Prob > F      = {res} 0.7716
                                                       {txt}R-squared     = {res} 0.0011
                                                       {txt}Root MSE      = {res}   10.7

{txt}{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 1}anagramsat~d{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      t{col 46}   P>|t|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2}-.7098516{col 26}{space 2} 2.436989{col 37}{space 1}   -0.29{col 46}{space 3}0.772{col 54}{space 4}-5.564583{col 67}{space 3}  4.14488
{txt}{space 7}_cons {c |}{col 14}{res}{space 2} 29.02564{col 26}{space 2} 1.766871{col 37}{space 1}   16.43{col 46}{space 3}0.000{col 54}{space 4} 25.50585{col 67}{space 3} 32.54543
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{res}{txt}
{com}. reg anagramsattempted treatR if relig == 2, r

{txt}Linear regression                                      Number of obs ={res}      60
                                                       {txt}F(  1,    58) ={res}    0.20
                                                       {txt}Prob > F      = {res} 0.6600
                                                       {txt}R-squared     = {res} 0.0032
                                                       {txt}Root MSE      = {res} 15.655

{txt}{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 1}anagramsat~d{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      t{col 46}   P>|t|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2} 1.757919{col 26}{space 2} 3.975889{col 37}{space 1}    0.44{col 46}{space 3}0.660{col 54}{space 4}-6.200688{col 67}{space 3} 9.716525
{txt}{space 7}_cons {c |}{col 14}{res}{space 2} 31.08824{col 26}{space 2} 2.893333{col 37}{space 1}   10.74{col 46}{space 3}0.000{col 54}{space 4}  25.2966{col 67}{space 3} 36.87987
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{res}{txt}
{com}. 
. clear all
{txt}
{com}. set mem 50m
{txt}(51200k)

{com}. set more off
{txt}
{com}. 
. use "/Users/gwf25/Dropbox/research/religion/final code/religion_all.dta"
{txt}
{com}. 
. //  Begin definition of variables
. 
. ***Drop subjects who thought the experiment was about religion
. gen id = _n
{txt}
{com}. drop if id == 98 | id == 176 | id == 194 | id == 383
{txt}(4 observations deleted)

{com}. 
. ***Drop subjects who incorrectly completed the priming task. This includes subjects who leave more than half the responses blank. The following subjects
. ***all left at least questions #2-#7 blank in the sentence unscrambling task. 
. drop if id==7 | id==719 | id==740 | id==762 | id==940
{txt}(5 observations deleted)

{com}. 
. ***An error led to some subjects seeing both the control and religion salient sentence unscrambling tasks. Here, we drop those subjects.
. drop if prime_diff == 1
{txt}(2 observations deleted)

{com}. 
. ***"skipped" is a dummy variable for whether subjects skip the question that asks their religion. If they skip this question, we drop them from the sample 
. ***and if not, we assign a dummy variable to indicate the treatment group (religion salient or control) that subject belongs to.
. gen skipped=0
{txt}
{com}. replace skipped=1 if  s10q15==""
{txt}(21 real changes made)

{com}. gen treatR=.
{txt}(1033 missing values generated)

{com}. replace treatR=religion if skipped==0
{txt}(1012 real changes made)

{com}. drop if skipped==1
{txt}(21 observations deleted)

{com}. 
. ***Define religion
. gen relig=.
{txt}(1012 missing values generated)

{com}. 
. ***Note: 1 = protestant or other christian, 2 = catholic, 3 = jewish, 4 = agnostic/atheist
. replace relig=1 if (s10q15=="Christian - Other (please specify below)" | s10q15=="Christian - Protestant (please specify denomination below)")
{txt}(264 real changes made)

{com}. replace relig=2 if s10q15=="Christian - Catholic"
{txt}(199 real changes made)

{com}. replace relig=3 if s10q15=="Jewish (Orthodox/Reformed/etc.)" | s10q15=="Jewish (Orthodox/Reform/etc.)"
{txt}(95 real changes made)

{com}. replace relig=4 if (s10q15=="Agnostic" | s10q15=="Atheist")
{txt}(269 real changes made)

{com}. 
. ***Drop Mormon/Othodox Christians from the sample
. drop if s10q15sp == "Greek Orthodox"
{txt}(2 observations deleted)

{com}. drop if s10q15sp == "Russian Othrodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "greek orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Orthodox Christian"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthdox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "christian orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthodox Christian"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Russian orthodox"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Church of Jesus Christ of Latter Day Saints"
{txt}(1 observation deleted)

{com}. drop if s10q15sp == "Greek Orthodox"
{txt}(0 observations deleted)

{com}. 
. drop id
{txt}
{com}. // End of variables
. 
. 
. rename m wageoffer
{txt}
{com}. 
. ***Panel I
. reg wageoffer treatR if relig == 1, r

{txt}Linear regression                                      Number of obs ={res}      99
                                                       {txt}F(  1,    97) ={res}    0.07
                                                       {txt}Prob > F      = {res} 0.7979
                                                       {txt}R-squared     = {res} 0.0007
                                                       {txt}Root MSE      = {res} .93127

{txt}{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 1}   wageoffer{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      t{col 46}   P>|t|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2} .0479902{col 26}{space 2}  .186937{col 37}{space 1}    0.26{col 46}{space 3}0.798{col 54}{space 4}-.3230281{col 67}{space 3} .4190084
{txt}{space 7}_cons {c |}{col 14}{res}{space 2} 1.386792{col 26}{space 2} .1311238{col 37}{space 1}   10.58{col 46}{space 3}0.000{col 54}{space 4} 1.126548{col 67}{space 3} 1.647037
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{res}{txt}
{com}. reg wageoffer treatR if relig == 2, r

{txt}Linear regression                                      Number of obs ={res}      91
                                                       {txt}F(  1,    89) ={res}    0.00
                                                       {txt}Prob > F      = {res} 0.9490
                                                       {txt}R-squared     = {res} 0.0000
                                                       {txt}Root MSE      = {res} .93032

{txt}{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 1}   wageoffer{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      t{col 46}   P>|t|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2} .0125125{col 26}{space 2}   .19497{col 37}{space 1}    0.06{col 46}{space 3}0.949{col 54}{space 4}-.3748886{col 67}{space 3} .3999137
{txt}{space 7}_cons {c |}{col 14}{res}{space 2} 1.283784{col 26}{space 2} .1440171{col 37}{space 1}    8.91{col 46}{space 3}0.000{col 54}{space 4} .9976249{col 67}{space 3} 1.569943
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{res}{txt}
{com}. 
. 
. ***Create the cost, cXXX, for providing a certain amount of effort at eXXX. A certain monetary cost is associated with each level of output. So, we have:
. ***[eXXX, cXXX] = [(1,$0.00),(2,$0.04),(3,$0.08),(4,$0.16),(5,$0.24),(6,$0.32),(7,$0.40),(8,$0.48),(9,$0.60),(10,$0.72)]
. gen c000 = .
{txt}(1002 missing values generated)

{com}. replace c000 = 0 if e000 == 1
{txt}(423 real changes made)

{com}. replace c000 = .04 if e000 == 2
{txt}(2 real changes made)

{com}. replace c000 = .08 if e000 == 3
{txt}(0 real changes made)

{com}. replace c000 = .16 if e000 == 4
{txt}(1 real change made)

{com}. replace c000 = .24 if e000 == 5
{txt}(0 real changes made)

{com}. replace c000 = .32 if e000 == 6
{txt}(0 real changes made)

{com}. replace c000 = .40 if e000 == 7
{txt}(0 real changes made)

{com}. replace c000 = .48 if e000 == 8
{txt}(0 real changes made)

{com}. replace c000 = .60 if e000 == 9
{txt}(0 real changes made)

{com}. replace c000 = .72 if e000 == 10
{txt}(1 real change made)

{com}. 
. gen c050 = .
{txt}(1002 missing values generated)

{com}. replace c050 = 0 if e050 == 1
{txt}(315 real changes made)

{com}. replace c050 = .04 if e050 == 2
{txt}(78 real changes made)

{com}. replace c050 = .08 if e050 == 3
{txt}(25 real changes made)

{com}. replace c050 = .16 if e050 == 4
{txt}(3 real changes made)

{com}. replace c050 = .24 if e050 == 5
{txt}(2 real changes made)

{com}. replace c050 = .32 if e050 == 6
{txt}(0 real changes made)

{com}. replace c050 = .40 if e050 == 7
{txt}(1 real change made)

{com}. replace c050 = .48 if e050 == 8
{txt}(0 real changes made)

{com}. replace c050 = .60 if e050 == 9
{txt}(2 real changes made)

{com}. replace c050 = .72 if e050 == 10
{txt}(1 real change made)

{com}. 
. gen c100 = .
{txt}(1002 missing values generated)

{com}. replace c100 = 0 if e100 == 1
{txt}(216 real changes made)

{com}. replace c100 = .04 if e100 == 2
{txt}(68 real changes made)

{com}. replace c100 = .08 if e100 == 3
{txt}(97 real changes made)

{com}. replace c100 = .16 if e100 == 4
{txt}(31 real changes made)

{com}. replace c100 = .24 if e100 == 5
{txt}(11 real changes made)

{com}. replace c100 = .32 if e100 == 6
{txt}(0 real changes made)

{com}. replace c100 = .40 if e100 == 7
{txt}(2 real changes made)

{com}. replace c100 = .48 if e100 == 8
{txt}(0 real changes made)

{com}. replace c100 = .60 if e100 == 9
{txt}(1 real change made)

{com}. replace c100 = .72 if e100 == 10
{txt}(1 real change made)

{com}. 
. gen c150 = .
{txt}(1002 missing values generated)

{com}. replace c150 = 0 if e150 == 1
{txt}(181 real changes made)

{com}. replace c150 = .04 if e150 == 2
{txt}(41 real changes made)

{com}. replace c150 = .08 if e150 == 3
{txt}(56 real changes made)

{com}. replace c150 = .16 if e150 == 4
{txt}(75 real changes made)

{com}. replace c150 = .24 if e150 == 5
{txt}(58 real changes made)

{com}. replace c150 = .32 if e150 == 6
{txt}(8 real changes made)

{com}. replace c150 = .40 if e150 == 7
{txt}(5 real changes made)

{com}. replace c150 = .48 if e150 == 8
{txt}(1 real change made)

{com}. replace c150 = .60 if e150 == 9
{txt}(1 real change made)

{com}. replace c150 = .72 if e150 == 10
{txt}(1 real change made)

{com}. 
. gen c200 = .
{txt}(1002 missing values generated)

{com}. replace c200 = 0 if e200 == 1
{txt}(168 real changes made)

{com}. replace c200 = .04 if e200 == 2
{txt}(25 real changes made)

{com}. replace c200 = .08 if e200 == 3
{txt}(31 real changes made)

{com}. replace c200 = .16 if e200 == 4
{txt}(42 real changes made)

{com}. replace c200 = .24 if e200 == 5
{txt}(82 real changes made)

{com}. replace c200 = .32 if e200 == 6
{txt}(32 real changes made)

{com}. replace c200 = .40 if e200 == 7
{txt}(20 real changes made)

{com}. replace c200 = .48 if e200 == 8
{txt}(22 real changes made)

{com}. replace c200 = .60 if e200 == 9
{txt}(3 real changes made)

{com}. replace c200 = .72 if e200 == 10
{txt}(2 real changes made)

{com}. 
. gen c250 = .
{txt}(1002 missing values generated)

{com}. replace c250 = 0 if e250 == 1
{txt}(166 real changes made)

{com}. replace c250 = .04 if e250 == 2
{txt}(17 real changes made)

{com}. replace c250 = .08 if e250 == 3
{txt}(28 real changes made)

{com}. replace c250 = .16 if e250 == 4
{txt}(18 real changes made)

{com}. replace c250 = .24 if e250 == 5
{txt}(53 real changes made)

{com}. replace c250 = .32 if e250 == 6
{txt}(65 real changes made)

{com}. replace c250 = .40 if e250 == 7
{txt}(33 real changes made)

{com}. replace c250 = .48 if e250 == 8
{txt}(14 real changes made)

{com}. replace c250 = .60 if e250 == 9
{txt}(6 real changes made)

{com}. replace c250 = .72 if e250 == 10
{txt}(27 real changes made)

{com}. 
. gen c300 = .
{txt}(1002 missing values generated)

{com}. replace c300 = 0 if e300 == 1
{txt}(159 real changes made)

{com}. replace c300 = .04 if e300 == 2
{txt}(14 real changes made)

{com}. replace c300 = .08 if e300 == 3
{txt}(15 real changes made)

{com}. replace c300 = .16 if e300 == 4
{txt}(26 real changes made)

{com}. replace c300 = .24 if e300 == 5
{txt}(27 real changes made)

{com}. replace c300 = .32 if e300 == 6
{txt}(45 real changes made)

{com}. replace c300 = .40 if e300 == 7
{txt}(51 real changes made)

{com}. replace c300 = .48 if e300 == 8
{txt}(39 real changes made)

{com}. replace c300 = .60 if e300 == 9
{txt}(11 real changes made)

{com}. replace c300 = .72 if e300 == 10
{txt}(40 real changes made)

{com}. 
. gen c350 = .
{txt}(1002 missing values generated)

{com}. replace c350 = 0 if e350 == 1
{txt}(160 real changes made)

{com}. replace c350 = .04 if e350 == 2
{txt}(11 real changes made)

{com}. replace c350 = .08 if e350 == 3
{txt}(15 real changes made)

{com}. replace c350 = .16 if e350 == 4
{txt}(17 real changes made)

{com}. replace c350 = .24 if e350 == 5
{txt}(36 real changes made)

{com}. replace c350 = .32 if e350 == 6
{txt}(16 real changes made)

{com}. replace c350 = .40 if e350 == 7
{txt}(34 real changes made)

{com}. replace c350 = .48 if e350 == 8
{txt}(54 real changes made)

{com}. replace c350 = .60 if e350 == 9
{txt}(37 real changes made)

{com}. replace c350 = .72 if e350 == 10
{txt}(47 real changes made)

{com}. 
. gen c400 = .
{txt}(1002 missing values generated)

{com}. replace c400 = 0 if e400 == 1
{txt}(231 real changes made)

{com}. replace c400 = .04 if e400 == 2
{txt}(7 real changes made)

{com}. replace c400 = .08 if e400 == 3
{txt}(8 real changes made)

{com}. replace c400 = .16 if e400 == 4
{txt}(9 real changes made)

{com}. replace c400 = .24 if e400 == 5
{txt}(22 real changes made)

{com}. replace c400 = .32 if e400 == 6
{txt}(11 real changes made)

{com}. replace c400 = .40 if e400 == 7
{txt}(15 real changes made)

{com}. replace c400 = .48 if e400 == 8
{txt}(27 real changes made)

{com}. replace c400 = .60 if e400 == 9
{txt}(31 real changes made)

{com}. replace c400 = .72 if e400 == 10
{txt}(66 real changes made)

{com}. 
. ***Drop the highest effort amount
. drop c400
{txt}
{com}. 
. ***In order to properly reshape the data, we must rename the effort and cost of effort at $0 and $0.50
. rename e000 e0
{txt}
{com}. rename e050 e50
{txt}
{com}. rename c000 c0
{txt}
{com}. rename c050 c50
{txt}
{com}. 
. ***Create the corresponding wages for each effort choice
. gen w0 = 0
{txt}
{com}. gen w50 = .5
{txt}
{com}. gen w100 = 1
{txt}
{com}. gen w150 = 1.5
{txt}
{com}. gen w200 = 2
{txt}
{com}. gen w250 = 2.5
{txt}
{com}. gen w300 = 3
{txt}
{com}. gen w350 = 3.5
{txt}
{com}. 
. ***Create the estimated regression parameter where beta=reciprocity
. gen beta=.
{txt}(1002 missing values generated)

{com}. 
. gen id = _n
{txt}
{com}. 
. ***Reshape the data so that we can regress cost of effort on all possible wages, by subject
. reshape long c, i(id) j(w)
{txt}(note: j = 0 50 100 150 200 250 300 350)

Data{col 36}wide{col 43}->{col 48}long
{hline 77}
Number of obs.                 {res}    1002   {txt}->{res}    8016
{txt}Number of variables            {res}     221   {txt}->{res}     215
{txt}j variable (8 values)                     ->   {res}w
{txt}xij variables:
                        {res}c0 c50 ... c350   {txt}->   {res}c
{txt}{hline 77}

{com}. 
. ***Loop through all subjects and regress the effort on wage by each subject and save values of regression
. ***Note that some subjects did not do this section so we exclude them here. Only subjects numbered 263 through 689 did the gift exchange task.
. quiet forvalues x = 263/689 {c -(}
{txt}
{com}. 
. ***Reshape the data to its original form
. reshape wide c, i(id) j(w)
{txt}(note: j = 0 50 100 150 200 250 300 350)

Data{col 36}long{col 43}->{col 48}wide
{hline 77}
Number of obs.                 {res}    8016   {txt}->{res}    1002
{txt}Number of variables            {res}     215   {txt}->{res}     221
{txt}j variable (8 values)                 {res}w   {txt}->   (dropped)
xij variables:
                                      {res}c   {txt}->   {res}c0 c50 ... c350
{txt}{hline 77}

{com}. 
. ***Panel H
. ***Note: remember to multiply point estimates and standard errors by 100 to get the value in dollars. This scaling is a result of wages being displayed in cents and not dollars. 
. reg beta treatR if relig == 1, r

{txt}Linear regression                                      Number of obs ={res}      99
                                                       {txt}F(  1,    97) ={res}    0.07
                                                       {txt}Prob > F      = {res} 0.7965
                                                       {txt}R-squared     = {res} 0.0007
                                                       {txt}Root MSE      = {res}  .0008

{txt}{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 1}        beta{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      t{col 46}   P>|t|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2} .0000414{col 26}{space 2} .0001601{col 37}{space 1}    0.26{col 46}{space 3}0.796{col 54}{space 4}-.0002763{col 67}{space 3} .0003591
{txt}{space 7}_cons {c |}{col 14}{res}{space 2} .0008598{col 26}{space 2} .0001177{col 37}{space 1}    7.30{col 46}{space 3}0.000{col 54}{space 4} .0006262{col 67}{space 3} .0010935
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{res}{txt}
{com}. reg beta treatR if relig == 2, r

{txt}Linear regression                                      Number of obs ={res}      91
                                                       {txt}F(  1,    89) ={res}    0.09
                                                       {txt}Prob > F      = {res} 0.7679
                                                       {txt}R-squared     = {res} 0.0010
                                                       {txt}Root MSE      = {res} .00082

{txt}{hline 13}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 14}{c |}{col 26}    Robust
{col 1}        beta{col 14}{c |}      Coef.{col 26}   Std. Err.{col 38}      t{col 46}   P>|t|{col 54}     [95% Con{col 67}f. Interval]
{hline 13}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 6}treatR {c |}{col 14}{res}{space 2} .0000522{col 26}{space 2} .0001764{col 37}{space 1}    0.30{col 46}{space 3}0.768{col 54}{space 4}-.0002983{col 67}{space 3} .0004028
{txt}{space 7}_cons {c |}{col 14}{res}{space 2} .0007882{col 26}{space 2} .0001391{col 37}{space 1}    5.67{col 46}{space 3}0.000{col 54}{space 4} .0005117{col 67}{space 3} .0010646
{txt}{hline 13}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{res}{txt}
{com}. 
{txt}end of do-file

{com}. log close
      {txt}name:  {res}<unnamed>
       {txt}log:  {res}/Users/gwf25/Desktop/Table 2.smcl
  {txt}log type:  {res}smcl
 {txt}closed on:  {res} 7 Dec 2015, 10:07:01
{txt}{.-}
{smcl}
{txt}{sf}{ul off}